model.matrix(pemax ~ height + weight)
attach(red.cell.folate)
model.matrix(folate ~ ventilation)

attach(red.cell.folate)
model.matrix(folate ~ ventilation)
summary(lm(folate ~ ventilation))
